home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / run me first (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  50 lines
  1. 1 REM CBM USERS OF NORMAN DISK LIBRARY
  2. 2 REM WRITTEN BY DAVID TINGLER
  3. 3 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(147)
  4. 4 PRINTTAB(7)"[158][195]OMMODORE [213]SERS OF [206]ORMAN"
  5. 5 PRINTTAB(15);"[208][207] [194]OX 573"
  6. 6 PRINTTAB(11);"[206]ORMAN, [207][203]  73070"
  7. 7 PRINTTAB(0)"[159][198]OR INFORMATION CONTACT:"
  8. 8 PRINT"[195]HAIRMAN:   [158][202]OHN [217]ODER..........364-1942"
  9. 9 PRINT"[159][211]ECRETARY:  [158][205]ARYE [203]ERR..........321-8206"
  10. 10 PRINT"[159][212]REASURER:  [158][196]AVE [211]AUSE..........364-7018"
  11. 11 PRINT"[159][204]IBRARY:    [158][195]LAY [204]EHMANN........329-8292"
  12. 12 PRINT"[159][212]RUSTEE:    [158][194]OB [208]EETZ...........793-1856"
  13. 13 PRINT"[159][194][194][211]:        [158][207][195][201][197]................366-7345"
  14. 14 GOSUB47
  15. 15 PRINTCHR$(147):PRINTTAB(3)"[159][208]UBLIC DOMAIN SOFTWARE IS AVAILABLE"
  16. 16 PRINT"TO ALL CLUB MEMBERS FOR A SMALL COPYING"
  17. 17 PRINT"FEE.  [212]HERE IS NO CHARGE TO MEMBERS WHO"
  18. 18 PRINT"PROVIDE NEW PROGRAMS TO THE LIBRARY."
  19. 19 PRINTTAB(3)"[158][215]E NEED YOUR PROGRAMS SO WE CAN BUILD";
  20. 20 PRINT"THE BEST CLUB LIBRARY AROUND!"
  21. 21 PRINTTAB(3)"[159][193]LL SOFTWARE CONTAINED IN THE CLUB"
  22. 22 PRINT"LIBRARY IS BELIEVED TO BE IN THE PUBLIC"
  23. 23 PRINT"DOMAIN.  [208]LEASE CONTACT THE LIBRARIAN"
  24. 24 PRINT"IF YOU HAVE ANY INFORMATION TO THE"
  25. 25 PRINT"CONTRARY."
  26. 26 PRINTTAB(3)"[159][195]OMMODORE IS A REGISTERED TRADEMARK"
  27. 27 PRINT"OF [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
  28. 28 GOSUB47
  29. 29 PRINTCHR$(147)
  30. 30 PRINT"[159][208][210][197][211][211]:
  31. 31 [153][163]3)"<(null)>SYS  TO READ AGAIN."
  32. 32 [153][163]3)"OPEN<STR$>SYS  TO READ THE DISK DOCUMENTATION."
  33. 33 [153][163]3)"OPEN<(null)>SYS  TO RUN THE DISK MENU."
  34. 34 [153][163]3)"OPEN<VAL>SYS  TO EXIT PROGRAM."
  35. 35 [161]C$:[139]C$[178]"R"[167]1
  36. 36 [139]C$[178]"D"[167]40
  37. 37 [139]C$[178]"M"[167]45
  38. 38 [139]C$[178]"E"[167]46
  39. 39 [137]35
  40. 40 [151] 53280,11:[159]2,8,2,"JUL DISK.DOC":[153][199](147);:C[178]0
  41. 41 [132]2,P$:[139]ST [175]64[167][153]P$:[137]44
  42. 42 [151]646,1:[153]P$:C[178]C[170]1:[139]C[178]22[167][141]47:[153][199](147);
  43. 43 [137]41
  44. 44 [160]2:[141]47:[137]29
  45. 45 [147]"DISK MENU",8:[162]
  46. 46 [128]
  47. 47 [153][163]3)"OPEN(PRESS <SPACE BAR> TO CONTINUE)"
  48. 48 [161]A$:[139]A$[179][177][199](32)[167]48
  49. 49 [142]
  50.